home *** CD-ROM | disk | FTP | other *** search
/ Gospel Library / Infobase setup disc.iso / intro / intro8.dxr / 00203.ls < prev    next >
Encoding:
Text File  |  1998-09-22  |  949 b   |  36 lines
  1. on scrollMe
  2.   global moveMeUp, moveMeUp2
  3.   puppetSprite(5, 1)
  4.   puppetSprite(6, 1)
  5.   set the constraint of sprite 5 to 11
  6.   set the constraint of sprite 6 to 11
  7.   if rollOver(8) and the mouseDown then
  8.     set moveMeUp to the locV of sprite 5
  9.     set the locV of sprite 5 to moveMeUp - 10
  10.     set moveMeUp2 to the locV of sprite 6
  11.     set the locV of sprite 6 to moveMeUp2 - 10
  12.   end if
  13.   if rollOver(9) and the mouseDown then
  14.     set moveMeUp to the locV of sprite 5
  15.     set the locV of sprite 5 to moveMeUp + 10
  16.     set moveMeUp2 to the locV of sprite 6
  17.     set the locV of sprite 6 to moveMeUp2 + 10
  18.   end if
  19. end
  20.  
  21. on cancelpuppets
  22.   global pauseMe
  23.   set pauseMe to 0
  24.   repeat with i = 27 to 41
  25.     set the visible of sprite i to 0
  26.   end repeat
  27.   puppetSprite(5, 0)
  28.   puppetSprite(6, 0)
  29.   repeat with i = 20 to 25
  30.     puppetSprite(i, 0)
  31.   end repeat
  32.   set the visible of sprite 47 to 0
  33.   set the visible of sprite 48 to 0
  34.   puppetSprite(45, 0)
  35. end
  36.